100 POKE53280,0:POKE53281,0
110 GOSUB1000
120 L$=""
140 PRINT"[147]":FORI=1TO5:PRINTTAB(11)A$(I):NEXT:TA=11
150 A=A+1:B=B+1:READPR$:IFA>9THENTA=10
160 PRINTLEFT$(L$,B+7)TAB(TA)"[158]"A"[156]-"PR$
165 IFB=12THEN175
170 GOTO 150
175 IFA>=12THENRESTORE:A=0
190 PRINTLEFT$(L$,24)TAB(7)"[159](C) ION INTERNATIONAL INC"
200 PRINTLEFT$(L$,21)TAB(9)" RETURN [146][158] OR CHOOSE NO.";
210 POKE198,0:INPUTAN$:AN=VAL(AN$):B=0
215 IFAN$=""THEN140
225 RESTORE:FORCH=1TOAN:READPR$:NEXT
230 PRINT"[147]":POKE53280,0:POKE53281,0
235 PRINTLEFT$(L$,15)TAB(10)"[156][204]OADING "PR$"[144]"
240 PRINT "LOAD";CHR$(34);PR$;CHR$(34);",8,1"
250 PRINT "RUN":PRINT "[145][145][145][145][145][145][145][145][145]"
260 POKE 631,13:POKE 632,13:POKE 198,2:END
500 DATA 64 BUG REP,128 BUG REP,LAZY BOOT,MUSIC BOOT,SWOOP BOOT,GOT A MATCH
510 DATA STAR STRIKE,TRACKDOWN 64,TRACKDOWN VIC,CHESS TOUR 128,SHAKER BOOT
520 DATA COMAL 64 BOOT
1000 A$(1)="[207][205][206][183][205][207][183][183][205][207][205] [207][205][207][205][207][205]"
1010 A$(2)="[180] [223][169] [146][180]   [146][180] [223][146][180] [146][180] [146][180] "
1020 A$(3)="[180] [146][223][169] [146][180] [146][205] [180] [146][223][223] [146][180] [146][180] "
1030 A$(4)="[180] [146] [180] [146][180] [175][146][205][180] [146][205][223] [146][180] [146][180] "
1040 A$(5)="[205] [146] [205] [146][205]   [146][205] [146] [205] [146][205]   "
1100 RETURN